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FORTH-79 STANDARD 

A PUBLICATION OF THE FORTH STANDARDS TEAM 

0. FOREWORD 

The computer language FORTH was created by Mr. Charles Moore, as an 
extensible, multi-level environment containing elements of an operating system, 
a machine monitor, and facilities for program development and testing. 

This Standard is a direct descendant of FORTH-77, a work of the FORTH 
Users Group (Europe). The constituency of the Standards Team has steadily 
broadened, to include users of an increasing variety of host computers. 



1. PURPOSE 

The purpose of this FORTH Standard is to allow transportability of standard 
FORTH programs in source form among standard FORTH systems. A standard program 
shall execute equivalently on all standard FORTH systems. 



2. SCOPE 

This standard shall apply to any Standard FORTH program executing on any 
Standard FORTH system, provided sufficient computer resources (memory, mass 
storage) are available. 



3. ORGANIZATION 



This standard consists of: 

1) General Text 

2) Definitions of Terms 

3) Required Word Set 

4) Extension Word Sets 



Word sets may be subdivided for conceptual purposes by function: 



Nucleus 

Interpreter 

Compiler 

Devices 
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Tradeoffs 

When conflicting choices must be made, the following order shall guide the 
Standards Team. 

1) Functional correctness 

- known bounds, non-ambiguous. 

2) Portability 

- repeatable results when transported among Standard systems. 

3 ) Simplicity. 

4) Naming clarity 

- uniformity of expression. Descriptive names are preferred over 
procedural. (i.e., [COMPILE] rather than 'C, and ALLOT rather 
than DP+! .) 

5) Generality. 

6) Execution speed. 

7) Memory compactness. 

8) Compilation speed. 

9) Historical continuity. 

10 ) Pronounceability. 

11) Teachability. 



4. DEFINITIONS OF TERMS 

These definitions, when in lower case, are terms used within this Standard. 
They present terms as specifically used within FORTH. 

address, byte 

An unsigned number that locates an 8-bit byte in a standard FORTH .; address 
space over { . . 65 , 535 } . It may be a native machine address or a repre- 
sentation on a virtual machine, locating the 'addr-th* byte within the 
virtual byte address space. Address arithmetic is modulo 65,536 without 
overflow. 

address, compilation 

The numerical value equivalent to a FORTH word definition, which is 
compiled for that definition. The address interpreter uses this value to 
locate the machine cede corresponding to each definition. (May also be 
called the code field address . ) 
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address, native machine 

The natural address representation of the host computer. 

address, parameter field 

The address of the first byte of memory associated with a word definition 
for the storage of compilation addresses (in a colon-definition), numeric 
data and text characters. 

arithmetic 

All integer arithmetic is performed with signed 16 or 32 bit two's comple- 
ment results, unless noted. 

block 

The unit of data from mass storage, referenced by block number. A block 
must contain 1024 bytes regardless of the minimum data unit read/taritten 
from mass storage. The translation from block number to device and 
physical record is a function of the implementation. 

block buffer 

A memory area where a mass storage block is maintained. 

byte 

An assembly of 8 bits. In reference to memory, it is the storage capacity 
for 8 bits. 



cell 



A 16-bit memory location. The n-th cell contains the 2n-th and (2n+l)-th 
byte of the FORTH address space. The byte order is presently unspecified. 



character 



A 7-bit number which represents a terminal character. The ASCII character 
set is considered standard. When contained in a larger field, the higher 
order bits are zero. 



compilation 



The action of accepting text words from the input stream and placing 
corresponding compilation addresses in a new dictionary entry. 



defining word 



A word that, when executed, creates a new dictionary entry. The new word 
name is taken from the input stream. If the input stream is exhausted 
before the new name is available, an error condition exists. Common 
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defining words are: 

: CONSTANT CREATE 
definition 

See 'word definition'. 
dictionary 

A structure of word definitions in a computer memory. In systems with a 

enable location by name. The dictionary is extensible, growing toward 
high memory. 



For the execution of a standard program, a set of non-time dependent inputs 
will produce the same non-time dependent outputs on any FORTH Standard 
System with sufficient resources to execute the program. Only standard 
source code will be transportable. 

error condition 

An exceptional condition which requires action by the system other than the 
expected function. Actions may be: 

1. ignore, and continue 

2. display a message 

4. interpret a block 

5. return control to the text interpreter 

A Standard System shall be provided with a tabulation of the action taken 
for all specified error conditions. 
General error conditions: 

1. input stream exhausted before a required <name>. 

2. empty stack and full stack for the text interpreter. 

3. an unknown word, not a valid number for the text interpreter. 

4. compilation of incorrectly nested conditionals. 

5. interpretation of words restricted to compilation. 
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6. FORGETing within the system to a point that removes a word 
required for correct execution. 

7. insufficient space remaining in the dictionary. 



false 



A zero number represents the false condition flag. 

flag 

A number that may have two logical states, zero and non-zero. These are 
named 'true* = non-zero, and 'false' = zero. Standard word definitions 
leave 1 for true, for false. 

glossary 

A set of word definitions given in a natural language describing the 
corresponding computer execution action. 

immediate word 

A word defined to automatically execute when encountered during compila- 
tion, which handles exception cases to the usual compilation. See IF 
LITERAL . " etc. 

input stream 

A sequence of characters available to the system, for processing by the 
text interpreter. The input stream conventionally may be taken from a 
terminal (via the terminal input buffer) and mass storage (via a block 
buffer). > IN and BLK specify the input stream. Words using or altering 
>IN and BLK are responsible for maintaining and restoring control of the 
input stream. 

interpreter, address 

The (set of) word definitions which interprets (sequences of) FORTH 
compilation addresses by executing the word definition specified for each 
one. 

interpreter, text 

The (set of) word definitions that repeatedly accepts a word name from the 
input stream, locates the corresponding dictionary entry, and starts the 
address interpreter to execute it. Text in the input stream interpreted 
as a number leaves the corresponding value on the data stack. When in 
the compile mode, the addresses of FORTH words are compiled into the 
dictionary for later interpretation by the address interpreter. In this 
case, numbers are compiled, to be placed on the data stack when later 
interpreted. Numbers shall be accepted unsigned or negatively signed, 
according to BASE. 
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1r\aH 



The acceptance of text from a mass storage device and execution of the 
dictionary definition of the words encountered. This is the general method 
for compilation of new definitions into the dictionary. 



It!€&fii)ai3 <»3 tn>%JJL. Gd*w$ vS 



Data is read from mass storage in the form of 1024 byte blocks. This -lata 
is held in block buffers* When indicated as UPDATEd (modified) data will 
be ultimately written to mass storage. 



nuiimex. 



When values exist within a larger field, the high order bits are zero. 
When stored in memory the byte order of a number is unspecified. 



type 




range 


minimum field 


bit 




0..1 


1 


character 




0..127 


7 


byte 




0..255 


8 


number 




■"32,768. .32,767 


16 


posxtxve numuer 




0. .32, 767 


16 


unsigned number 




0. .65,535 


16 


double number 




-2,147,483,648.. 








2,147,483,647 


32 


positive double 


number 


0.. 2, 147, 483, 647 


32 


unsigned double 


number 


0. .4,294,967,295 


32 



When represented on the stack, the higher 16-bits (with sign) of a double 

byte order within each 16-bit field is unspecified. 

output, pictured 

The use of numeric output primitives, which convert numerical values into 
text strings. The operators are used in a sequence which resembles a 
symbolic 'picture' of the desired text format. Conversion proceeds from 
low digit to high, from high memory to low. 

program 

A complete specification of execution to achieve a specific function 
(application task) expressed in FORTH source code form. 



return 



The means of terminating text from the input stream. (Conventionally a 
null (ASCII 0) indicates end of text in the input stream. This character 
is left by the 'return' key actuation of the operator's terminal, as an 
absolute stopper to text interpretation.) 
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screen 

Textual data arranged for editing. By convention, a screen consists of 16 
lines (numbered thru 15) of 64 characters each. Screens usually contain 
program source text, but may be used to view mass storage data. The first 
byte of a screen occupies the first byte of a mass storage block, which is 
the beginning point for text interpretation during a load. 

source definition 

Text consisting of word names suitable for execution by the text inter- 
preter. Such text is usually arranged in screens and maintained on a mass 
storage device. 

stack, data . 

A last in, first out list consisting of 16-bit binary values. This stack 
is primarily used to hold intermediate values during execution of word 
definitions. Stack values may represent numbers, characters, addresses, 
boolean values, etc. 

When the name 'stack' is used, it implies the data stack. 

stack, return 

A last in, first out list which contains the machine addresses of word 
definitions whose execution has not been completed by the address inter- 
preter. As a word definition passes control to another definition, the 
return point is placed on the return stack. 

The return stack may cautiously be used for other values, such as loop 
control parameters, and for pointers for interpretation of text. 

string 

A sequence of 8-bit bytes containing ASCII characters, located in memory by 
an initial byte address and byte count. 

transportability 

This term indicates that equivalent execution results when a program is 
executed on other than the system on which it was created. See 'equivalent 
execution ' . 

true 



A non-zero value represents the true condition flag. Any non-zero value 
will be accepted by a standard word as 'true'; all standard words return 
one when leaving a 'true' flag. 



user area 



An area in memory which contains the storage for user variables. 
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variables , user 

So that the words of the FORIH vocabulary may be re-entrant (to different 
:s}, a copy of each system variable is maintained in the user area. 






vocabulary 



An ordered list of word definitions. Vocabulary lists are an advantage 
in reducing dictionary search time and in separating different word 
definitions that may carry the same name. 

weed 

A sequence of characters terminated by at least one blank (or 'return' ). 
Words are usually obtained via the input stream, from a terminal or mass 
storage device. 

word definition 

A named FORTH execution procedure compiled into the dictionary. Its 
execution may be defined in terms of machine code, as a sequence of 
compilation addresses or other compiled words. If named, it may be located 

©y Slp^sGXij/ XilQ qoXS OoITk oJIQ cXi© VOC^OmJLqjCj/ XII WOXwO XTC XS XQCSuKOe 

word name 

The name of a word definition. Standard names must be distinguished by 
their length and first thirty-one characters, and may not contain an ASCII 
null, blank, or 'return'. 

word set 

A gioup ox FORTH word definitions listed by uuuiuuu characteristics. 
The standard word sets consist of: 

Required Word Set 
Nucleus Words 
Interpreter Words 
Compiler Words 
Device Words 

Extension Word Sets 
32-bit Word Set 
Assembler Word Set 

Included as reference material only: 
Reference Word Set 

word set, compiler 

Words which add new procedures to the dictionary or aid compilation by 
adding compilation addresses or data structures to the dictionary. 



word set, devices 

Words which allow access to mass storage and computer peripheral devices. 

word set, interpreter 

Words which support interpretation of text input from a terminal or mass 
storage by execution of corresponding dictionary entries, vocabularies, and 
terminal output. 

word set, nucleus 

The FORTH words generally defined in machine code that create the stacks 
and fundamental stack operators (virtual FORTH machine). 

word set, reference 

This set of words is provided as a reference document only, as a set of 
formerly standardized words and candidate words for standardization. 

word set, required 

The minimum words needed to compile and execute all Standard Programs. 

word, standard 

A named FORTH procedure definition, formally reviewed and accepted by the 
Standards Team. A serial number identifier {100.. 999} indicates a Standard 
Word. A functional alteration of a Standard Word will require assignment 
of a new serial number identifier. 

The serial number identifier has no required use, other than to correlate 
the definition name with its unique Standard definition. 



5. REFERENCES 



The following documents are considered to be a portion of this Standard: 

American Standard Code for Information Interchange, 
American National Standards Institute, X3. 4-1968 

Webster's Collegiate Dictionary shall be used to resolve conflicts 
in spelling and English word usage. 

The following documents are noted as pertinent to the FORTH-79 Standard, 
but are not part of this Standard. 

FORTH-77, FORTH Users Group, FST-780314 

FORTH-78, FORTH International Standards Team 
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FORTH-79, Experimental Proposals 



REQUIREMENTS 



6.1 Documentation Requirements 



Each Standard System and Standard Program shall be accompanied by a state- 
ment of the minimum (byte) requirements for: 

1. System dictionary space 

2. Application dictionary space 

3. Data stack 

4. Return stack 

5. Mass storage contiguous block quantity required 

6. An operator's terminal. 

Each Standard System shall be provided with a statement of the system 
action upon each of the error conditions as identified in this Standard. 

6.2 Testing Requirements 

The following host computer configuration is specified as a minimum 

different capacities. 

1. 2000 bytes of memory for application dictionary 

2. Data stack of 64 bytes 

3. Return stack of 48 bytes 

4. Mass storage capacity of 32 blocks, numbered through 31 

5. One ASCII input/output device acting as an operator's terminal. 
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7. COMPLIANCE AND LABELING 

The FORTH Standards Team hereby specifies the requirements for labeling of 
systems and applications so that the conditions for program portability may be 
established. 

A system may use the specified labeling if it complies with the terms of 
this Standard, and meets the particular Word Set definitions. 

A Standard Program (application) may use the specified labeling if it 
utilizes the specified standard system according to this Standard, and executes 
equivalently on any such system. 

FORTH Standard 

A system may be labeled 'FORTH-79 Standard' if it includes all of the 
Required Word Set in either source or object form, and complies with the text of 
this Standard. After executing "79-STANDARD" the dictionary must contain all of 
the Required Word Set in the vocabulary FORTH, as specified "in this Standard. 

Standard Sub-set 

A system may be labeled 'FORTH-79 Standard Sub-set' if it includes a 
portion of the Required Word Set, and complies with the remaining text of 
this standard. However, no Required Word may be present with a non-standard 
definition. 

Standard with Extensions 

A system may be labeled 'FORTH-79 Standard with <name> Standard Exten- 
sion^)' if it comprises a FORTH-79 Standard System and one or more Standard 
Extension Word Set(s). The designation would be in the form: 

'FORTH-79 Standard with Double-Number Standard Extensions' 
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8. USE 

A FORTH Standard program may reference only the definitions of the Required 
Word Set, and definitions which are subsequently defined in terms of these 
words Furthermore a FORTH Standard program must use the standard words as 
required by any conventions of this Standard. Equivalent execution must result 
from Standard programs.. 

The FORTH system may share the dictionary space with the user's applica- 
tion, and the native addressing protocol of the host computer is beyond the 
scope of this standard. 

Therefore, in a Standard program, the user may only operate on data which 
was stored by the application. No exceptions! 

A Standard Program may address: 

1. parameter fields of variables, constants and DOES> words. A DOES> 
word's parameter field may only be addressed with respect to the 
address left by DOES> , itself. 

2. dictionary space ALIXfTed. 

3. data in mass storage block buffers. (Note restriction in BIOCK on 
latest buffer addressing . ) 

4. the user area and PAD. 

A Standard Program may NOT address: 



1 . d,i:ceefc.lv irifcu i-Juts udLci OL tci-UiTu isuciwCS. 



2. into a definition's name field, link field, or code field. 

3. into a definition's parameter field if not stored by the application. 

Further usa"e requirements are expected to be added for transporting programs 
between standard systems. 

FORTH Standard definitions have a serial number assigned, in the range 
100 thru 999. Neither a Standard System nor Standard Program may redefine these 
word names, within the FORTH vocabulary. 
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9. GLOSSARY NOTATION 

Order 

The Glossary definitions are listed in ASCII alphabetical order. 
Stack Notation 

The first line of each entry describes the execution of the definition: 

stack parameters before execution 
— showing point of execution 
stack parameters after execution 

i.e., before after 

In this notation, the top of the stack is to the right. Words may also 
be shown in context, when appropriate. 

Attributes 

Capitalized symbols indicate attributes of the defined words: 

C The word may only be used within a colon-definition. 

I Indicates that the word is IMMEDIATE and will execute during compila- 
tion, unless special action is taken. 

U A user variable. 

Capitalization 

Word names as used within the dictionary are conventionally written in 
upper case characters. Within this Standard lower case will be used when 
reference is made to the run-time machine code, not directly accessible, 
i.e., VARIABIE is the user word to create a variable. Each use of that 
variable makes use of a code sequence 'variable' which executes the func- 
tion of the particular variable. 

Pronunciation 

The natural language pronunciation of FORTH names is given in double quotes 
("). 

Stack Parameters 

Unless otherwise stated, all references to numbers apply to 16-bit signed 
integers . 

The implied range of values is shown as {from. .to}. The content of an 
address is shown by double curly brackets, particularly for the contents of 
variables, i.e., BASE U2..70)} 
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addr l0..65,535> 

A value representing the address of a byte, within the FORTH standard 
memory space, ©lis addressed byte may represent the first byte of a larger 
data field in memory. 

byte {0..255) 

A value representing an 8 bit byte. When in a larger field, the higher 
bits are zero. 

db"*r (Q 4*127) 

A value representing a 7 bit ASCII character code. When in a larger field, 
the higher bits are zero. 

d {-2, 147, 483, 648.. 2, 147, 483, 6471 

32 bit signed 'double' number. The most significant 16-bits, with sign, is 

most accessible on the stack. 

flag 

A numerical value with two logical states; 0= false, non-zero = true, 
n {-32, 768.. 32, 767} 

16 bit signed integer number. 

Any other symbol refers to an arbitrary signed 16-bit integer in the range 
{-32, 768.. 32, 767), unless otherwise noted. 

Input Text 

<name> 

An arbitrary FORTH word accepted from the input stream. " This notation 

refers to text i.rom tue input stream, no*, to values on uie »jai_a s<_ac.rc. 

If the input stream is exhausted before encountering <name>, an error 
condition exists. 






10. REQUIRED WORD SET 



The words of the Required Word Set are grouped to show like character- 
istics. No implementation requirements should be inferred from this grouping. 

Nucleus Words 

i * */ */MCD + +! +lcop - / 
/MOD 0< 0= 0> 1+ 1- 2+ 2- < 
= > >R ?DUP § ABS AND begin C! 
C@ colon CMOVE constant create D+ 
D< DEPTH DNEGATE do does> 
DROP DUP else EXECUTE EXIT FILL I 
if J LEAVE literal loop MAX MIN 
MOD MOVE NEGATE NOT OR OVER PICK 
R> R@ repeat ROLL ROT semicolon 
SWAP then U* U/ U< until variable 
while XOR 

(note that the lower case entries refer to just the run- time code corresponding 
to a compiling word.) 

Interpreter Words 

# #> #S * ( -TRAILING . 
79-STANDARD <# >IN ? ABORT BASE BLK 
CONTEXT CONVERT COUNT CR CURRENT 
DECIMAL. EMIT EXPECT FIND FORTH HERE 
HOLD KEY PAD QUERY QUIT SIGN SPACE 
SPACES TYPE U. WORD 



Compiler Words 

+L0OP , ." : ; ALLOT BEGIN 
COMPILE CONSTANT CREATE DEFINITIONS DO 
DOES> ELSE FORGET IF IMMEDIATE 
LITERAL LOOP REPEAT STATE THEN UNTIL 
VARIABLE VOCABULARY WHILE [ [COMPILE] ] 

Device Words 

BLOCK BUFFER EMPTY-BUFFERS LIST 
LOAD SAVE-BUFFERS SCR UPDATE 
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i n addr ■ 112 

Store n at address, "store" 

# udl — ud2 158 

Generate from an unsigned double-number dl, the next ASCII character 
which is placed in an output string. Result d2 is the quotient after 
division by EASE and is maintained for further processing. Used between 
<# and #>. "sharp" 

■Ht V j5% *-, ** ."* i *■• n. 

Its U QUUL 11 Xi»U 

End pictured numeric output conversion. Drop d, leaving the text address, 
and character count, suitable for TYPE, "sharp-greater" 

#S ud — 209 

Convert all digits of an unsigned 32-bit number ud, adding each to the 
pictured numeric output text, until remainder is zero* A single zero 
is added to the output string if the number was initially zero. Use 
only between <# and #>. "sharp-s" 

— addr 1,171 

Used in the form: 

' <name> 

If executing, leave the parameter field address of the next word accepted 
from the input stream. If compiling, compile this address as a literal; 
later execution will place this value on the stack. An error condition 

exists if not found after a search of the CQivrEXu? and pQRTH vocabularies. 
Within a colon-definition ' <name> is identical to [ ' <name> ] LITERAL, 
"tick" 

( 1,122 

us*sq xxi THIS noon* 

( ccc) 

Accept and ignore comment characters from the input stream, until the 
next right parenthesis. As a word, the left parenthesis must be followed 
toy one blank. It may be freely used while executing or compiling. 
An error condition exists if the input stream is exhausted before the 
right parenthesis. "paren" The right parenthesis is pronounced "close- 
paren" 

* nl n2 n3 138 

Leave the arithmetic product of nl times n2. "times' 8 
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* nl n2 - — n3 138 

Leave the arithmetic product of nl times n2. "times" 

*/ nl n2 n3 n4 220 

Multiply nl by n2 , divide the result by n3 and leave the quotient n4. n4 
is rounded toward zero. The product of nl times n2 is maintained as an 
intermediate 32-bit value for greater precision than the otherwise equiv- 
alent sequence: nl n2 * n3 / "times-divide" 

*/MOD nl n2 n3 n4 n5 192 

Multiply nl By n2, divide the result by n3 and leave the remainder' n4 and 
quotient n5. A 32-bit intermediate product is used as for */. The 
remainder has the same sign as nl. "times-divide-mod" 

+ nl n2 n3 121 

Leave the arithmetic sum of nl plus n2. "plus" 

+! n addr 157 

Add n to the 16-bit value at the address, by the convention given for +. 
"plus-store" 

+L0OP n ( I,C,141 

Add the signed increment n to the loop index using the convention for +, 
and compare the total to the limit. Return execution to the corresponding 
DO until the new index is equal to or greater than the limit (n>0), or 
until the new index is less than the limit (n<0). Upon the exiting from 
the loop, discard the loop control parameters, continuing execution ahead. 
Index and limit are signed integers in the range {-32, 768.. 32, 767}. "plus- 
loop" 

(Comment: It is a historical precedent that the limit for n<0 is ir- 
regular. Further consideration of the characteristic is likely.) 

, n 143 

Allot two bytes in the dictionary, storing n there, "comma" 

nl n2 n3 134 

Subtract n2 from nl and leave the difference n3. "minus" 

-TRAILING addr nl addr n2 148 

Adjust the character count nl of a text string beginning at addr to exclude 
trailing blanks, i.e., the characters at addr+n2 to addr+nl-1 are blanks. 
An error condition exists if nl is negative, "dash- trailing" 
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n iyj 

Display n converted according to BASE in a free-field format with one 
trailing blank. Display only a negative sign, "dot" 

1,133 
Interpreted or used in a colon-definition in the form: 



Accent the followina text from the input stream? terminated by " (double- 
quote). If executing, transmit this text to the selected output device. 
If compiling, compile so that later execution will transmit the text to the 
selected, output device. At least 127 characters are allowed in the text. 
If the input stream is exhausted before the terminating double-quote, an 
error condition exists, "dot-quote" 

/ nl n2 n3 178 

Divide nl by n2 and leave the quotient n3. n3 is rounded toward zero, 
"divide" 

/MOD nl n2 n3 n4 198 

Divide nl by n2 and leave the remainder n3 and quotient n4. n3 has the 
same sign as nl. "divide-mod" 

0< n flag 144 

True if n is less than zero (negative), "zero-less" 



True if n is zero, "zero-equals" 
0> n — flag 118 

True if n is greater than zero, "zero-greater" 
1+ n — n+1 107 

Increment n by one, according to the operation for +. "one-plus" 

!_ n n -l 105 

Decrement n by one, according to the operation -. "one-minus" 

2+ n n+2 135 

Increment n by two, according to the operation for +. "two-plus" 
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2- • n n-2 129 

Decrement n by two, according to the operation for -. "two-minus" 

79-STANDARD 119 

Execute assuring that a FORTH-79 Standard system is available, otherwise an 
error condition exists. 

: 116 

A defining word used in the form: 

: <name> ... ; 

Select the CONTEXT vocabulary to be identical to CURRENT. Create a 
dictionary entry for <name> in CURRENT, and set compile mode. Words thus 
defined are called 'colon-definitions'. The compilation addresses of 
subsequent words from the input stream which are not immediate words are 
stored into the dictionary to be executed when <name> is later executed. 
IMMEDIATE words are executed as encountered. 

If a word is not found after a search of the CONTEXT and FORTH vocabu- 
laries, conversion and compilation of a literal number is attempted, with 
regard to the current BASE; that failing, an error condition exists, 
"colon" 

; I,C,196 

Terminate a colon-definition and stop compilation. If compiling from mass 
storage and the input stream is exhausted before encountering ; an error 
condition exists, "semi-colon" 

< nl n2 flag 139 

True if nl is less than n2. 

-32768 32767 < must return true. 

-32768 must be distinguished. "less-than" 

<# 169 

Initialize pictured numeric output. The words: 

<# # #S HOLD SIGN #> 

can be used to specify the conversion of a double-precision number into an 
ASCII character string stored in right-to-left order, "less-sharp" 

nl n2 flag 173 

True if nl is equal to n2. "equals" 
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> nl n2 — flag 102 

True if nl is greater than n2. "greater- than" 

>IN addr U p 201 

Leave the address of a variable which contains the present character offset 
within the input stream {{0..1023}} "to-in" 

See: WORD ( ." FIND 

>R n — — C r 200 

Transfer n to the return stack. Every >R must be balanced by a R> in the 
same control structure nesting level of a colon-definition, "to-r" 

? addr — - - 194 

Display the number at address, using the format of ".". "question-mark" 

?DUP n — - n ( n ) 184 
Duplicate n if it is non-zero, "guery-dup" 

@ addr - — . n 199 
Leave on the stack the number contained at addr. "fetch" 

ABORT 101 

/-n _ i _^_ t^\ .a _ ^ ^ a ^=-i^ c == s^ — j_ ^ ^i Qi=i ^^jl.i-'^~~ m „^_2-*^^_ ^J3_ *— jl. ^ i_ "* 

Ciccu. uic Uciuci oliu lcuulu i»i_<au.h.o» actLXiiH eXecuLiuu uuuts. Keuilit Luaului 

to the terminal. 

ABS nl — n2 108 

Leave the absolute value of a number, "absolute" 

ALLOT n — 154 

Add n bytes to the parameter field of the most recently defined word. 

AND nl n2 — ■ n3 183 

Leave the bitwise logical 'and' of nl and n2. 

BASE addr U,115 

Leave the address of a variable containing the current input-output 
numeric conversion base. {{2.. 70)} 
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BEGIN I,C,147 

Used in a colon-definition in the forms: 

BEGIN . . . flag UNTIL or 
BEGIN . . . flag WHILE ... REPEAT 

BEGIN marks the start of a word sequence for repetitive execution. A 
BEGIN-UNTIL loop will be repeated until flag is true. A BEGIN-WHILE-REPEAT 
loop will be repeated until flag is false. The words after UNTIL or REPEAT 
will be executed when either loop is finished. flag is always dropped 
after being tested. 

BLK addr U,132 

Leave the address of a variable containing the number of the mass storage 
block being interpreted as the input stream. 

If the content is zero, the input stream is taken from the terminal, 
"b-l-k" {{unsigned-number}} 

BLOCK n addr 191 

Leave the address of the first byte in block n. If the block is not 
already in memory, it is transferred from mass storage into whichever 
memory buffer has been least recently accessed. If the block occupying 
that buffer has been UPDATEd (i.e. modified), it is rewritten onto mass 
storage before block n is read into the buffer, n is an unsigned number. 
If correct mass storage read or write it not possible, an error condition 
exists. Only data within the latest block referenced by BLOCK is valid by 
byte address, due to sharing of the block buffers. 

BUFFER n addr 130 

Obtain the next block buffer, assigning it to block n. The block is 
not read from mass storage. If the previous contents of the buffer has 
been marked as UPDATEd, it is written to mass storage. If correct writing 
to mass storage is not possible, an error condition exists. The address 
left is the first byte within the buffer for data storage, n is an 
unsigned number. 

Ci n addr 219 

Store the least significant 8-bits of n at addr. "c-store" 

C@ addr byte 156 

Leave on the stack the contents of the byte at addr (with higher bits zero, 
in a 16-bit field), "c-fetch" 

CMOVE addrl addr2 n 153 

Move n bytes beginning at address addrl to addr2. The contents of addrl 
is moved first proceeding toward high memory. If n is zero or negative 
nothing is moved, "c-move" 
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COMPILE C,±40 

When a word containing COMPILE executes, the 16-bit value following the 
compilation address of COMPILE is copied (compiled) into the dictionary, 
i.e., COMPILE DUP will copy the compilation address of DUP. 

COMPILE [ , ] will copy zero. 

CONSTANT n — — 185 

A defining word used in the form: 

n CONSTANT <name> 

to create a dictionary entry for <name>, leaving n in its parameter 
field. When <name> is later executed, n will be left on the stack. 

CONTEXT addr U,151 

Leave the address of a variable specifying the vocabulary in which dic- 
tionary searches are to made, during interpretation of the input stream. 

CONVERT dl addrl — d2 addr2 195 

Convert to the equivalent stack number the text beginning at addrl+1 with 
regard to BASE. The new value is accumulated into double number dl, being 
left as d2. addr2 is the address of the first non-convertible character. 

COUNT addr — addr+1 n 159 

Leave the address addr+1 and the character count of text beginning at 
addr. The first byte at addr must contain the character count n. Range 
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CR 160 

Cause a carriage-return and line- feed to occur at the current output 
device, "c-r" 

CREATE 239 

A defining word used in the forms 

CREATE <name> 

to create a dictionary entry for <name>, without allocating any parameter 
field memory. When <name> is subsequently executed, the address of the 
first byte of <name>'s parameter field is left on the stack. 

CURRENT addr U,137 

Leave the address of a variable specifying the vocabulary into which new 
word definitions are to be entered. 
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D+ dl d2 d3 241 

Leave the arithmetic sura of dl plus d2. "d-plus" 
D< dl d2 flag 244 

True if dl is less than d2. "d-less-than" 
DECIMAL 197 

Set the input-output numeric conversion base to ten. 

DEFINITIONS 155 

Set CURRENT to the CONTEXT vocabulary so that subsequent definitions will 
be created in the vocabulary previously selected as CONTEXT. 

DEPTH n 238 

Leave the number of the quantity of 16-bit values contained in the data 
stack, before n was added. 

DNEGATE d -d 245 

Leave the two's complement of a double number. 
DO nl n2 I,C,142 

Use in a colon-definition: 

DO . . . LOOP or 

DO . . . +LCOP 

Begin a loop which will terminate based on control parameters. The loop 
index begins at n2, and terminates based on the limit nl. At LOOP or 
+LOOP, the index is modified by a positive or negative value. The range of 
a DO-LOOP is determined by the terminating word. 

DO-LOOP may be nested. Capacity for three levels of nesting is specified 
as a minimum for standard systems. 

DOES> I,C f 168 

Define the run-time action of a word created by a high-level defining 
word. Used in the form: 

: <name> . . . CREATE . . . DOES> ... ; 

and then <name> <namex> 

Marks the termination of the defining part of the defining word <name> and 
begins the definition of the run time action for words that will later be 
defined by <name>. On execution of <namex> the sequence of words between 
DOES> and ; will be executed, with the address of <namex>'s parameter 
field on the stack, "does" 
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DROP n ■ 233 

Drop the top number from the stack. 
DUP n n n 205 

Leave a copy of the top stack number. 
ELSE 1,0,167 

Used in a colon-definition in the form: 
IF . . . ELSE . . . THEN 

ELSE executes after the true part following IF. ELSE forces execution to 
skip till just after THEN. It has no effect on the stack. (See IF) 

EMIT char — - 207 

Transmit character to the current output device, 

EMPTY-BUFFERS 145 

Mark all block buffers as empty, without necessarily affecting their actual 
contents. UPDATEd blocks are not written to mass storage. 

EXECUTE addr — 163 

Execute the dictionary entry whose compilation address is on the stack. 

EXIT C, 117 

whan conroi led within 9. colon— definition- terminate execution or tnafc 
definition, at that point. May not be used within a DO... LOOP. 

EXPECT addr n — — 189 

Transfer characters from the terminal beginning at addr, upward, until a 

"return" or the count of n has been received « Take no action for n 

less than or equal to zero. One or two nulls are added at the end of 
text. 

FILL addr n byte 234 

Fill memory beginning at address with a sequence of n copies of byte. If 
the quantity n is less than or equal to zero, take no action. 

FIND — addr 203 

Leave the compilation address of the next word name, which is accepted from 
the input stream,, If that word cannot be found in the dictionary after a 
search of CONTEXT and FORTH leave zero. 
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FCRGET 186 

Execute in the form: 

FORGET <name> 

Delete from the dictionary <name> (which is in the CURRENT vocabulary) 
and all words added to the dictionary after <name>, regardless of their 
vocabulary. Failure to find <name> in CURRENT or FORTH is an error 
condition. 

FORTH 1,187 

The name of the primary vocabulary. Execution makes FORTH the CONTEXT 
vocabulary. 

New definitions become a part of FORTH until a differing CURRENT vocabulary 
is established. 

User vocabularies conclude by 'chaining 1 to FORTH, so it should be con- 
sidered that FORTH is "contained 1 within each user's vocabulary. 

HERE addr 188 

Return the address of the next available dictionary location. 

HOLD char 175 

Insert char into a pictured numeric output string. May only be used 
between <# and #>. 

I n C,136 

Copy the loop index onto the data stack. May be only used in the form: 



IF 



DO ... I ... LOOP or DO . 


• • 


I . . 


. . +LOOP 


flag 






I,C,210 


Used in a colon-definition in the forms: 








flag IF . . . ELSE . . . THEN 


or 






flag IF . . . THEN 









If flag is true, the words following IF are executed and the words follow- 
ing ELSE are skipped. The ELSE part is optional. 

If flag is false, words between IF and ELSE, or between IF and THEN (when 
no ELSE is used), are skipped. IF-ELSE-THEN conditionals may be nested. 

IMMEDIATE 103 

Mark the most recently made dictionary entry as a word which will be 
executed when encountered during compilation rather than compiled. 
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J n C,225 

Return the index of the next outer loop. May be used only within a nested 
DO-LOOP in the form: 

DO * * * DO •» e e> *J see IJUQP * * © JJUUP 

KEY — char 100 

Leave the ASCII value of the next available character from the current 
input device. 

LEAVE C,213 

Force termination of a DO-LOOP at the next LOOP or +LOOP by setting 
the loop limit equal to the current value of the index. The index itself 
remains unchanged, and execution proceeds normally until the loop ter- 
minating word is encountered. 

LIST n 109 

List the ASCII symbolic contents of screen n on the current output device, 

setting SCR to contain n. n is unsigned. 

LITERAL n 1,215 

If compiling, then compile the stack value n as a 16-bit literal, which 
when later executed, will leave n on the stack. 

LOAD n ■ 202 

Begin interpretation of screen n by making it the input stream: preserve 
the locators of the present input stream (from >IN and ELK). If inter- 
pretation is not terminated explicitly it will be terminated when the input 
stream is exhausted. Control then returns to the input stream containing 
LOAD, determined by the input stream locators >IN and BLK. 

LOOP I,C,124 

Increment the DO-LOOP index by one, terminating the loop if the new index 
is equal to or greater than the limit. The limit and index are signed 
numbers in the range {-32, 768.. 32, 767}. 

MAX nl n2 n3 218 

Leave the greater of two numbers, "max" 
MB! nl n2 — n3 . 127 

Leave the lesser of two numbers, "min" 
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MCD nl n2 n3 104 

Divide nl by n2, leaving the remainder n3, with the same sign as nl. 
"mod" 

MOVE- addrl addr2 n 113 

Move the specified quantity n of 16-bit memory cells beginning at addrl 
into memory at addr2. The contents of addrl is moved first. If n is 
negative or zero, nothing is moved. 

NEGATE n n 177 

Leave the two's complement of a number, i.e., the difference of less 
n. 

NOT flagl — flag2 165 
Reverse the boolean value of flagl. This is identical to 0=. 

OR nl n2 n3 223 

Leave the bitwise inclusive-or of two numbers. 

OVER nl n2 nl n2 nl 170 

Leave a copy of the second number on the stack. 

PAD addr 226 

The address of a scratch area used to hold character strings for inter- 
mediate processing. The minimum capacity of PAD is 64 characters (addr 
through addr+63 ) . 

PICK nl n2 240 

Return the contents of the nl-th stack value, not counting nl itself. An 
error condition results for n less than one. 

2 PICK is equivalent to OVER. (1 .. n) 

QUERY 235 

Accept input of up to 80 characters (or until a 'return') from the opera- 
tor's terminal, into the terminal input buffer. WORD may be used to accept 
text from this buffer as the input stream, by setting >IN and BLK to 
zero. 

QUIT 211 

Clear the return stack, setting execution mode, and return control to the 
terminal. No message is given. 
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R> n C,110 

Transfer n from the return stack to the data stack, "r-from" 

r@ — ■ n C,228 ' 

Copy the number on the top of the return stack to the data stack, 
"r-fetch" 

REPEAT I,C,120 

ricgoHl in a >t>] f~w>— ^of l f% i f* l OF* IT) f°n<2» i_01T^* 

BEGIN ... WHILE ... REPEAT 

At run- time, REPEAT returns to just after the corresponding BEGIN. 

ROLL n 236 

Extract the n-th stack value to the top of the stack, not counting n 
itself, moving the remaining values into the vacated position. An error 
condition results for n less than one. (1 .. n} 

3 ROLL = ROT 

1 ROLL = null operation 

ROT nl n2 n3 — n2 n3 nl 212 

Rotate the top three values, bringing the deepest to the top. "rote" 

SAVE-BUFFERS 221 

Write all blocks to mass-storage that have been flagged as UPDATEd. An 
error condition results if mass-storage writing is not completed. 

SCR addr U,217 

Leave the address of a variable containing the number of the screen most 
recently listed, "s-c-r" unsigned-number 

SIGN n — C,140 

Insert the ASCII "-" (minus sign) into the pictured numeric output string, 
if n is negative. 

SPACE 232 

Transmit an ASCII blank to the current output device. 
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SPACES n 231 

Transmit n spaces to the current output device. Take no action for n 
of zero or less. 

STATE addr U,164 

Leave the address of the variable containing the compilation state. A 
non-zero content indicates compilation is occurring, but the value itself 
may be installation dependent. 

SWAP nl n2 n2 nl 230 

Exchange the top two stack values. 

THEN I,C,161 

Used in a colon-definition, in the form: 

IF . . . ELSE . . . THEN or 
IF . . . THEN 

THEN is the point where execution resumes after ELSE or IF (when no 
ELSE is present). 

TYPE addr n 222 

Transmit n characters beginning at address to the current output device. 
No action takes place for n less than or equal to zero. 

U* unl un2 ud3 242 

Perform an unsigned multiplication of unl by un2, leaving the double number 
product ud3. All values are unsigned, "u-times" 



U. un 



106 



Display un converted according to BASE as an unsigned number, in a 
free-field format, with one trailing blank, "u-dot" 

U/MOD udl un2 un3 un4 243 

Perform the unsigned division of double number udl by un2, leaving the 
remainder un3, and quotient un4. All values are unsigned, 
"u-divide-mod" 

U< unl un2 — flag 150 

Leave the flag representing the magnitude comparison of unl < un2 where unl 
and un2 are treated as 16-bit unsigned integers, "u-less-than" 
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UNTIL flag I,C f 237 

Within a colon— def mition , mark the enu Ql. a BE«IN = UNTIL xcop, which will 
terminate based on a flag. If flag is true, the loop is terminated. 
If flag is false, execution returns to the first word after BEGIN. 
BEGIN-UNTIL structures may be nested. 

UPDATE 229 

Mark the most recently referenced block as modified. The block will 
subsequently be automatically transferred to mass storage should its memory 
buffer be needed for storage of a different block, or upon execution of 
SAVE-BUFFERS. 

VARIABLE 227 

A defining word executed in the form: 

VARIABLE <name> 

to create a dictionary entry for <name> and allot two bytes for storage in 

When <name> is later executed, it will place the storage address on the 
stack. 

VOCABULARY 208 

A defining word executed in the form: 

VOCABULARY <name> 

to create f in the CURRENT vocabulary) a Giotionary entry lor <naroe!>_. 
which specifies a new ordered list of word definitions. Subsequent 
execution of <name> will make it the CONTEXT vocabulary. When <name> 
becomes the CURRENT vocabulary (see DEFINITIONS), new definitions will be 
created in that list. 

In lieu of any further specification, new vocabularies 'chain' to FORTH, 
That is, when a dictionary search through a vocabulary is exhausted, FORTH 
will be searched. 

WHILE flag I,C,149 

Used in a colon-definition in the form: 

BEGIN ... flag WHILE ... REPEAT 

Select conditional execution based on the flag. On a true flag, continue 
execution through to REPEAT, which then returns back to just after BEGIN. 
On a false flag, skip execution to just after REPEAT, exiting the struc- 
ture. 
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WORD char addr 181 

Receive characters from the input stream until the non-zero delimiting 
character is encountered or the input stream is exhausted, ignoring lead- 
ing delimiters. The characters are stored as a packed string with the 
character count in the first character position. The actual delimiter 
encountered (char or null) is 'stored at the end of the text but not 
included in the count. If the input stream was exhausted as WORD is 
called, then a zero length will result. The address of the beginning of 
this packed string is left on the stack. 

XOR nl n2 n3 174 

Leave the bitwise exclusive-or of two numbers, "x-or" 

[ 1,125 

End the compilation mode. The text from the input stream is subsequently 
executed. See ] "left-bracket" 

[COMPILE] I,C,179 

Used in a colon-definition in the form: 

[COMPILE] <name> 

Force compilation of the following word. This allows compilation of an 
IMMEDIATE word when it would otherwise be executed. "bracket-compile" 

] 126 

Set the compilation mode. The text from the input stream is subsequently 
compiled. See [ "right-bracket" 
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11. EXTENSION WORD SETS 

11.1 DOUBLE NUMBER WORD SET 

2! d addr — — 

Store d in 4 consecutive bytes beginning at addr, as for a double nunber. 
"two- store 53 

2@ addr — - d 

Leave on the stack the contents of the four consecutive bytes beginning at 
addr, as for a double number, "two-fetch" 

2C0NSTANT d — - 

A defining word used in the form: 

d 2C0NSTANT <name> 

to create a dictionary entry for <name>, leaving d in its parameter 
field. When <name> is later executed, d will be left on the stack. 
"two-constant" 

2DR0P d 

Drop the top double number on the stack, "two-drop" 
2DUP d — d d 

nnr^l i r»st? the to n double niinfcsir on fchA stack «, "two-duo 
20VER dl d2 dl d2 dl 

Leave a copy of the second double number on the stack, "two-over" 
2E0T dl d2 d3 d2 d3 dl 

Rotate the third double number to the top of the stack, "two-rote" 
2SWAP dl d2 d2 dl 

Exchange the top two double numbers on the stack, "two-swap" 
2VARIABLE 

A defining word used in the form: 
2VARIABLE <name> 

to create a dictionary entry of <name> and assign 4 bytes for storage in 
the parameter field. When <name> is later executed, it will leave the 
address of the first byte of its parameter field on the stack. "two- 
variable" 
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D+ dl d2 d3 241 

Leave the arithmetic sum of dl and d2. "d-plus" 
D- dl d2 d3 

Subtract d2 from dl and leave the difference d3 . "d-minus" 

D. d — - 129 

Display d converted according to BASE in a free-field format, with one 
trailing blank. Display the sign only if negative, "d-dot" 

D.R d n — 

Display d converted according to BASE, right aligned in an n character 
field. Display the sign only if negative, "d-dot-r" 

D0= d flag 

Leave true if d is zero, "d-zero-equals" 
D< dl d2 flag 244 

True if dl is less than d2. "d-less" 
D= dl d2 flag 

True if dl equals d2. "d-equal" 
DABS dl — d2 

Leave as a positive double number d2, the absolute value of a double 
number, dl. I0..2,147,483,647} "d-abs" 

DMAX dl d2 d3 

Leave the larger of two double numbers, "d-max" 
DMIN dl d2 — d3 

Leave the smaller of two double numbers, "d-min" 
DNEGATE d -d 245 

Leave the double number two's complement of a double number, i.e., the 
difference less d. "d-negate" 

DU< udl ud2 — flag 

True of udl is less than ud2. Both numbers are unsigned. "d-u-less" 



- 33 - 



11.2 ASSEMBLER WORD SET 

jCODE C, 1,206 

Used in the form: 

: <name> . . . ;CODE 

Stop compilation and terminate a defining word <name>. ASSEMBLER becssr.es 
the CONTEXT vocabulary. When <name> is executed in the form: 

<name> <namex> 

to define the new <namex>, the execution address of <namex> will contain 
the address of the code sequence following the ;CODE in <name>. Execution 
of any <namex> will cause this machine code sequence to be executed. 
" semi-colon-code" 

ASSEMBLER 1,166 

Select assembler as the CONTEXT vocabulary. 
CODE HI 

A defining word used in the form: 

CODE <name> . . . END-CODE 

to create a dictionary entry for <name> to be defined by a following 
sequence of assembly language words. ASSEMBLER becomes the context 
vocabulary. 

EwD-CuDE 

Terminate a code definition, resetting the CONTEXT vocabulary to the 
CURRENT vocabulary. If no errors have occurred, the code definition is 
made available for use. 

12. EXPERIMENTAL PROPOSALS 

No Experimental Proposals were submitted for publication. 
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REFERENCE WORD SET 



This word set is furnished as a reference document. It is a set of 
formerly standardized words and candidate words for standardization. 



REFERENCE WORD SET 
FORTH-79 

The Reference Word Set contains both Standard Word Definitions (with 
Serial number identifiers in the range 100 through 999), and uncontrolled word 
definitions. 

Uncontrolled definitions are included for public reference of words that 
have present usage and/or are candidates for future standardization. 

No restrictions are placed on the definition or usage of uncontrolled 
words. However, use of these names for procedures differing from the given 
definitions is discouraged. 

•BITS nl addr n2 

Store the value of nl masked by n2 into the equivalent masked part 
of the contents of addr, without affecting bits outside the mask, "store- 
bits" 

** nl ix2 n3 

Leave the value of nl to the power n2. "power" 

-ffiLOCK nl n2 

Leave the sum of nl plus the number of the block being interpreted, nl 
and n2 are unsigned, "plus-block" 

-' ( addr ) flag 

Used in the form: 

-' <name> 

Leave the parameter field of <name> beneath zero (false) if the name can 
be found in the CONTEXT vocabulary; leave only true if not found, "dash- 
tick". 

— > 1,131 

Continue interpretation on the next sequential block. May be used within a 
colon-definition that crosses a block boundary, "next-block" 

-MATCH addrl nl addr2 n2 
addr 3 f 

Attempt to find the n2-character string beginning at addr2 somewhere in 
the nl-character string beginning at addrl. Return the last +1 character 
address addr3 of the match point and a flag which is zero if a match 
exists, "dash-match" 
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-TEXT addrl nl addr2 — n2 

Compare two strings over the length nl beginning at addrl and addr2. 
Return zero if the strings are equal. If unequal, return n2, the differ- 
ence between the last characters compared: 

addrl (i) - addr2(i) 

"dash-text" 

,R nl n2 

Print nl right aligned in a field of n2 characters, according to BASE. If 
n2 is less than 1, no leading blanks are supplied, "dot-r" 

/LOOP n 

A DO-LOOP terminating word. The loop index is incremented by the unsigned 
magnitude of n. Until the resultant index exceeds the limit, execution 
returns to just after the corresponding DO: otherwise, the index and limit 
are discarded. Magnitude logic is used, "up-loop" 

1+ ! addr — ■=- 

Add one to the 16-bit contents at addr. "one-plus-store" 
1- 1 addr 

Subtract 1 from the 16-bit contents at addr. "one-minus-store" 
2* nl — ri2 

2/ nl n2 

Leave (nl)/2. "two-divide" 

i • 

Used to specify a new defining word: 
: <name> . . . 

• • • 

t • • • • t 

<name> <namex> 

When <name> is executed, it creates an entry for the new word <namex>. 
Later execution of <namex> will execute the sequence of words between ;: 
and ; , with the address of the first (if any) parameters associated with 
<namex> on the stack, "semi-colon-colon" 



Stop interpretation of a block. For execution only, "seiai-s" 
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<> nl n2 flag 

Leave true if nl is not equal to n2. "not-equal" 
<BUILDS C 

Used in conjunction with DOES> in defining words, in the form: 

: <name> . . . <BUILDS . . . 
DOES> . . . ; 
and then <name> <namex> 

When <name> executes, <BUILDS creates a dictionary entry for the new 
<namex>. The sequence of words between <BUILDS and DOES> established a 
parameter field for <namex>. When <namex> is later executed, the sequence 
of words following DOES> will be executed, with the parameter field 
address of <namex> on the data stack, "builds" 

<CMOVE addrl addr2 n 

Copy n bytes beginning at addrl to addr2. The move proceeds within the 
bytes from high memory toward low memory, "reverse-c-move" 

X nl — n2 

Swap the high and low bytes within nl. "byte-swap" 

>MOVE< addrl addr2 n 

Move n bytes beginning at addrl to the memory beginning at addr2. During 
this move, the order of each byte pair is reversed. "byte-swap-move" 

@BITS addr nl n2 

Return the 16-bits at addr masked by nl. "fetch-bits" 
ABORT" flag I,C 

Used in a colon-definition in the form: 

ABCRT" stack empty" 

If the flag is true, print the following text, till ". Then execute 
ABORT, "abort-quote" 

AGAIN I,C,114 

Effect an unconditional jump back to the start of a BEGIN-AGAIN loop. 

ASCII — char (executing) 

(compiling) I,C 

Leave the ASCII character value of the next non-blank character in the 
input stream. If compiling, compile it as a literal, which will be later 
left when executed. 
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ASHIFT nl . n2 Tii 

Shift the value nl ari theme tically n2 bits left if n2 is positive, shifting 

£j< ta .4.w*_f ii*t-w ul*<- j.\.u,ww Md.^im.d.jiV.twtit. w.*.*-* ^/wj.v>d.wi.ii>j»« ax. !!<£, ife» iA'CM^t.-A, VC 7 AAJL JLS3 

shifted right. Sign extension is to be consistent with the processor's 
arithmetic shift. 

B/BUF — 1024 

A constant leaving 1024, the number of bytes per block buffer. "bytes- 
per-buffer" 

BELL 

Activate a terminal bell or noise-maker as appropriate to the device in use. 
BL n 176 

Leave the ASCII character value for blank (decimal 32). "b-1" 

BLANKS addr n — 152 

Fill an area of memory over n bytes with the value for ASCII blank, start- 
ing at addr. If n is less than or equal to zero, take no action. 

C, n — - 

Store the low-order 8 bits of n at the next byte in the dictionary, 
advancing the dictionary pointer, "c-comma" 

CHAIN 

CHAIN <name> 

Connect the CURRENT vocabulary to all definitions that might be entered 
into the vocabulary <name> in the future. The CURRENT vocabulary may not 
be FORTH or ASSEMBLER. Any given vocabulary may only be chained once, 
but may be the object of any number of chainings. For example, every 
user-defined vocabulary may include the sequence: 

CHAIN FORTH 

COM nl — - n2 

Leave the one's complement of nl. 
CONTINUED n — ■ 

Continue interpretation at block n. 

_ 4 ._ 



CUR addr 

A variable pointing to the physical record number before which the tape is 
currently positioned. REWIND sets CUR=1. 

DBLOCK d addr 

Identical to BLOCK but with a 32-bit block unsigned number. "D-hlock" 

DPL — addr 

A variable containing the number of places after the fractional point for 
output conversion. If DPL contains zero, the last character output will be 
a decimal point. No point is output if DPL contains a negative value. DPL 
may be set explicitly, or by certain output words, but is unaffected by 
number input, "d-p-1" 

DUMP addr n — 123 

List the contents of n addresses starting at addr. Each line of values may 
be preceeded by the address of the first value. 

EDITOR 1,172 

The name of the editor vocabulary. When this name is executed, EDITOR is 
established as the CONTEXT vocabulary. 

END I,C,224 

A synonym for UNTIL. 

ERASE addr n 182 

Fill an area of memory over n bytes with zeros, starting at addr. If n 
is zero or less, take no action. 

FLD — addr 

A variable pointing to the field length reserved for a number during 
output conversion, "f-l-d" 

FLUSH 

A synonym for SAVE-BUFFERS 

H. n 

Output n as a hexadecimal integer with one trailing blank. The current 
base is unchanged, "h-dot" 

HEX 162 

Set the numeric input-output conversion base to sixteen. 

- 5 - 



I' — - n C 

nc«j ,.-,■* 4-vj^r. 2 colon— definition executed only from within a DO— LOOP to 
return the corresponding loop index, "i-prime" 

IFEND 

Terminate a conditional interpretation sequence begun by IFTRUE. 

IFTRUE flag — 

Begin an 

IFTRUE ... OTHERWISE ... IFEND 

conditional sequence. These conditional words operate like 

IF ... ELSE ... THEN 

except that they cannot be nested, and are to be used only during inter- 
pretation. In conjunction with the words [ and ] they may be used 
within a colon-definition to control compilation, although they are not to 
be compiled. 

INDEX nl n2 

Print the first line of each screen over the range {nl..n2}. This displays 
the first line of each screen of source text, which conventionally contains 
a title. 

INTERPRET 

Begin interpretation at the character indexed by the contents ot >in 
relative to the block number contained in BLK, continuing until the input 
stream is exhausted. If BLK contains zero, interpret characters from the 
terminal input buffer. 

K n C 

Within a nested DO-LOOP, return the index of the second outer loop. 

LAST — addr 

A variable containing the address of the beginning of the last dictionary 
entry made, which may not yet be a complete or valid entry. 

LINE n addr 

Leave the address of the beginning of line n for the screen whose number is 
contained in SCR. The range of n is {0..15>. 

LINELOAD nl n2 

Begin interpretation at line nl of screen n2. 

- 6 - 



LOADS n — - 

A defining word used in the form: 
n LOADS <name> 

When <name> is subsequently executed, block n will be loaded. 
MAPO addr 

A variable pointing bo the first location in the tape map. 

MASK nl n2 

Leave a mask of nl most significant bits if nl is positive, or n least 
significant bits if nl is negative. 

MS n 

Delay for approximately n milliseconds. 
NAND nl n2 — n3 

The one's complement of the logical and of nl and n2. 
NOR nl n2 - — n3 

The one's complement of the logical or of nl and n2. 

NUMBER addr n 

Convert the count and character string at addr, to a signed 32-bit integer, 
using the current base. If numeric conversion is not possible, an error 
condition exists. The string may contain a preceding negative sign. 

0. n 

Print n in octal format with one trailing blank. The value in BASE is 
unaffected, "o-dot" 

OCTAL 

Set the number conversion base to 8. 

OFFSET addr 128 

A variable that contains the offset added to the block number on the stack 
by BLOCK to determine the actual physical block number. 
The user must add any desired offset when utilizing BUFFER. 

OTHERWISE 

An interpreter-level conditional word. See IFTRUE. 

- 7 - 
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Clear the terminal screen or perform an action suitable to the output 
device currently active. 

Read to the next file mark on tape constructing a correspondence tabje in 
memory (the map) relating physical block position to logical block number = 
The tape should normally be rewound to its load point before executing 

KcjALr-rimr . 

REMEMBER 

A defining word used in the form: 

REMEMBER <name> 

Defines a word which, when executed, will cause <name> and all subsequently 
defined words to be deleted from the dictionary. <name> may be compiled 
into and executed from a colon definition. The sequence 

DISCARD REMEMBER DISCARD 

provides a standardized preface to any group of transient word definitions. 
REWIND 

Rewind the tape to its load point, setting CUR=1. 
ROTATE nl n2 n3 

iSUUCtttt U.1C ValUC 1U 1C1.U Hi UIW J-J. lii. .«..=> £«->.->.!. .-J. -uv- i j-j-ym. «»<. w*.«.w » .-— — 

negative. Bits shifted out of one end of the cell are shifted back in at 
the opposite end. 

SO addr 

Returns the address of the bottom of the stack, when empty. ' s— zero 
SET n addr — — 

A defining word used in the form: 

n addr SET <name> 

Defines a word <name> which, when executed, will cause the value n to be 
stored at address. 

SHIFT nl n2 n3 

| fV j I C:pj I SllXJ. U HX iUk Ui UXU3 11 Hi- Ill ^ijQlUXVUI *.i»JUl. -Li- ***. J-w *«w>jm>..i. vw. 

Zeros are shifted into vacated bit positions. 



SP@ — addr 214 

Return the address of the top of the stack, just before SP@ was executed, 
"s-p-fetch" 

TEXT c — 

Accept characters from the input stream, as for WORD, into PAD, blank- 
filling the remainder of PAD to 64 characters. 

THRU nl n2 — 

Load consecutively the blocks from nl through n2. 

O.R unl n2 — 216 

Output unl as an unsigned number right justified in a field n2 characters 
wide. If n2 is smaller than the characters required for nl, no leading 
spaces are given, "u-dot-r" 

USER n — 

A defining word used in the form: 

n USER <name> 

which creates a user variable <name>. n is the cell offset within the user 
area where the value for <name> is stored. Execution of <name> leaves its 
absolute user area storage address. 



VLIST 



List the word names of the CONTEXT vocabulary starting with the most recent 
definition . 

WHERE 

Output information about the status of FORTH, (e.g., after an error 
abort). Indicate at least the last word compiled and the last block 
accessed. 

\LOOP n — I,C 

A DO-LOOP terminating word. The loop index is decremented by n and the 
loop terminated when the resultant index becomes equal to or less than the 
limit. Magnitude logic is used, and n must be positive. "down- loop" 
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FORTH-79 HANDY REFERENCE 



Stack inputs and outputs are shown: top of stack on right See operand key at bottom. 



STACK MANIPULATION 



DUP 


(n — n n ) 


DROP 


(n- ) 


SWAP 


( n1 n2 - n2 n1 ) 


OVER 


( n1 n2 - n1 n2 nl ) 


ROT 


(n1 n2n3 - n2n3n1 ) 


PICK 


( n1 - n2 ) 


ROLL 


(n- ) 


7DUP 


( n - n (n) ) 


>R 


(n- ) 


R> 


. ( -n) 


R@ 


( -n) 


DEPTH 


( -n) 


COMPARISON 




< 


( n1 n2 - flag ) 


=■ 


( n1 n2 - flag ) 


> 


( n1 n2 - flag ) 


o< 


( n — flag ) 


0=» 


( n - flag ) 


0> 


( n - flag ) 


D< 


( dl d2 - flag ) 


IK 


( un1 un2 — flag ) 


NOT 


( flag — -iflag ) 



Duplicate top of stack. 

Discard top of stack. 

Exchange top two stack items. 

Make copy of second item on top. 

Rotate third item to top. "rote" 

Copy n1-th item to top. (Thus 1 PICK = DUP . 2 PICK = OVER ) 

Rotate n-th item to top. (Thus 2 ROLL = SWAP . 3 ROLL = ROT ) 

Duplicate only if non-zero, "query-dup" 

Move top item to "return stack" for temporary storage (use caution), "to-r" 

Retrieve item from return stack, "r-from" 

Copy top of return stack onto stack, "r-fetch" 

Count number of items on stack. 



True if n1 less than n2. "less-than" 

True if top two numbers are equal "equals" 

True if n1 greater than n2. "greater-than" 

True if top number negative, "zero-less" 

True if top number zero. (Equivalent to NOT ) "zero-equals" 

True if top number greater than zero, "zero-greater" 

True if d1 less than d2. "d-less-than" 

Compare top two items as unsigned integers, "iriess-than" 

Reverse truth value. (Equivalent to 0= ) 



ARITHMETIC AND LOGICAL 


+ 


( nl n2 — sum ) 


D+ 


( d1 d2 — sum ) 


— 


( n1 n2 - diff ) 


1 + 


( n - n+1 ) 


1- 


( n — n— ) 


2+ 


( n - n+2 ) 


2- 


( n - n-2 ) 


* 


( n1 n2 — prod ) 


/ 


( n1 n2 — quot ) 


MOD 


( n1 n2 — rem ) 


/MOD 


( n1 n2 — rem quot ) 


•/MOD 


( n1 n2 n3 — rem quot ) 


*/ 


( n1 n2 n3 — quot ) 


U* 


( un1 un2 — ud ) 


U/MOD 


( ud un — urem uquot ) 


MAX 


(n1 n2 — max) 


MIN 


( n1 n2 — min ) 


ABS 


(n-lnl) 


NEGATE 


( n — — n ) 


ONEGATE 


( d d ) 


AND 


( n1 n2 — and ) 


OR 


( n1 n2 — or ) 


XOR 


( n1 n2 — xor ) 



Add. "plus" 

Add double-precision numbers, "d-plus" 

Subtract (n1-n2). "minus" 

Add 1 to top number, "one-plus" 

Subtract 1 from top number, "one-minus" 

Add 2 to top number, "two-plus" 

Subtract 2 from top number, "two-minus" 

Multiply, 'limes" 

Divide (n1/n2). (Quotient rounded toward zero) "divide" 

Modulo (La., remainder from division n1/n2). Remainder has 3ame sign as nl. "mod" 

Divide, giving remainder and quotient, "divide-mod" 

Multiply, then divide (n1*n2/n3), with double-precision intermediate, "times-divide-mod" 

Like '/MOD , but give quotient only, rounded toward zero, "times-divide" 

Multiply unsigned numbers, leaving unsigned double-precision result "u-times" 

Divide double number by single, giving remainder and quotient, all unsigned, "u-divide-mod" 

Leave greater of two numbers, "max" 

Leave lesser of two numbers, "min" 

Absolute value, "absolute" 

Leave two's complement 

Leave two's complement of double-precision number, "d-negate" 

Bitwise logical AND. 

Bitwise logical OR. 

Bitwise logical exclusfve-OR. "x-or" 



MEMORY 

@ 

I 

C@ 
CI 
? 

+! 

MOVE 
CMOVE 
FILL 



( addr - n ) 
( n addr — ) 
( addr — byte ) 
( n addr — ) 
( addr - ) 
( n addr — ) 
( addrl addr2 n — 
( addrl addr2 n - 
( addr n byte — ) 



CONTROL STRUCTURES 



UO . . . LOOP 

I 

J 

LEAVE 

DO . . . +LOOP 

IF... (true)... THEN 
IF... (true)... ELSE 
...(false)... THEN 
.BEGIN... UNTIL 
BEGIN . . . WHILE 

. . . REPEAT 
EXIT 
EXECUTE 



do: ( end+1 start — 
( — index ) 
( — index ) 
( - ) 

do: ( limit start — ) 
+k>op: ( n - ) 
if: ( flag - ) 
if: (flag - ) 

until: ( flag - ) 
while: ( flag — ) 



(addr - 



Replace address by number at address, "fetch" 

Store n at addr. "store" 

Fetch least significant byte only, "c-fetch" 

Store least signficant byte only, "c-store" 

Display number at address, "question-mark" 

Add n to number at addr. "plus-store" 

Move n numbers starting at addrl to memory starting at addr2, if n>0. 

Move n bytes starting at addrl to memory starting at addr2, if n>0. "c-move" 

Fill n bytes in memory with byte beginning at addr, if n>0. 



Set up loop, given index range. 

Place current loop index on data stack. 

Return index of next outer loop in same definition. 

Terminate loop at next LOOP or +LOOP , by setting limit equal to index. 

Like DO . . . LOOP , but adds stack value (instead of always 1 ) to index. Loop terminates when 

index is greater than or equal to limit (n>0), or when index is less than limit (n<0). "plus-loop" 

If top of stack true, execute. 

Same, but if false, execute ELSE clause. 

Loop back to BEGIN until true at UNTIL . 

Loop while true at WHILE ; REPEAT loops unconditionally to BEGIN . When fal3e, continue after 

REPEAT. 

Terminate execution of colon definition. (May not be used within DO . .. LOOP ) 

Execute dictionary entry at compilation address on stack (e.g., address returned by FIND ). 



Operand key: 

n, nl , . . . 16-bit 3igned numbers 



d, d1. 



32-bit 3igned numbers 
unsigned 



addr, addrl , . 
byte 



addresses 
8-bit byte 



char 7-bit ascii character value 
flag boolean flag 



TERMINAL INPUT-OUTPOT 



CR 


( - ) 


EMIT 


(char — ) 


SPACE 


( - ) 


SPACES 


(n- ) 


TYPE 


( addr n — ) 


COUNT 


( addr — addr+1 n ) 


-TRAILING 


( addr n1 — addr n2 ) 


KEY 


( — char) 


EXPECT 


(addrn — ) 


QUERY 


( - ) 


WORD 


{ char — addr ) 


NUMERIC CONVERSION 


BASE 


( -addr) 


DECIMAL 


( - ) 




(n- ) 


U. 


(un- ) 


CONVERT 


( d1 addrl - d2 addr: 


<# 


( - ) 


# 


( ud1 - ud2 ) 


#S 


( ud - ) 


HOLD 


(char — ) 


SIGN 


(n- ) 


#> 


( d - addr n ) 



Do a carriage return and line feed, "c-r" 

Type ascii value from stack. 

Type one space. 

Type n spaces, If n>0. 

Type string of n characters beginning at addr, If n>0. 

Change address of string (prefixed by length byte at addr) to TYPE form. 

Reduce character count of string at addr to omit trailing blanks, "dash-trailing" 

Read key and leave ascii value on stack. 

Read n characters (or until carriage return) from terminal to address, with nuil(s) at end. 

Read line of up to 80 characters from terminal to input buffer. 

Read next word from input stream using char as delimiter, or until null. Leave addr of length byte. 



System variable containing radix for numeric conversion. 
Set decimal number base. 

Print number with one trailing blank and sign if negative, "dot" 
Print top of stack as unsigned number with one trailing blank, "u-dot" 
d2 addr2 ) Convert string at addrl +1 to double number. Add to d1 leavingsumd2andaddr2offirstnon-digit 
Start numeric output string conversion, "less-sharp" 

Convert next digit of unsigned double number and add character to output string, "sharp" 
Convert all significant digits of unsigned double number to output string, "sharp-s" 
Add ascii char to output string. 
Add minus sign to output string if n<0. 
Drop d and terminate numeric output string, leaving addr and count for TYPE . "sharp-greater" 



MASS STORAGE INPUT/OUTPUT 



LIST 


(n- ) 


LOAD 


(n- ) 


SCR 


( -addr) 


BLOCK 


( n — addr ) 


UPDATE 


( - ) 


BUFFER 


( n — addr ) 


SAVE-BUFFERS 


( - ) 


EMPTY-BUFFERS 


( - ) 



DEFINING WORDS 

:xxx ( - ) 

; ( - ) 

VARIABLE xxx ( - ) 

xxx: ( — addr ) 

CONSTANT xxx ( n - ) 

xxx: ( — n) 

VOCABULARY xxx ( - ) 

CREATE ... DOES> does: ( -addr) 



VOCABULARIES 

CONTEXT 

CURRENT 

FORTH 

DEFINITIONS 

' xxx 

FIND 

FORGET xxx 



( -addr) 

( - addr ) 

( - ) 

( - ) 

( -addr) 

( -addr) 

( - ) 



List screen n and set SCR to contain n. 

Interpret screen n, then resume interpretation of the current input stream. 

System variable containing screen number most recently listed. 

Leave memory address of block, reading from mass storage if necessary. 

Mark last block referenced as modified. 

Leave addr of a free buffer, assigned to block n; write previous contents to mass storage if UPDATEd. 

Write all UPDATEd blocks to mass storage. 

Mark all block buffers as empty, without writing UPDATEd blocks to mass storage. 



Begin colon definition of xxx . "colon" 

End colon definition. "semHxjIon" 

Create a two-byte variable named xxx ; returns address when executed. 

Create a constant named xxx with value n; returns value when executed. 

Create a vocabulary named xxx ; becomes CONTEXT vocabulary when executed. 

Used to create a new defining word, with execution-time routine in high-level FORTH "does" 



System variable pointing to vocabulary where word names are searched for. 

System variable pointing to vocabulary where new definitions are put 

Main vocabulary, contained in all other vocabularies. Execution of FORTH sets context vocabulary. 

Sets CURRENT vocabulary to CONTEXT. 

Find address of xxx in dictionary; if used in definition, compile address, "tick" 

Leave compilation address of next word in input stream. If not found in CONTEXT or FORTH, leaveO. 

Forget all definitions back to and including xxx , which must be in CURRENT or FORTH. 



COMPILER 




, 


(n- ) 


ALLOT 


(n- ) 


," 


( - ) 


IMMEDIATE 


( - ) 


LITERAL 


(n- ) 


STATE 
[ 


( -addr) 
( - ) 


I 
COMPILE 


( - ) 
( - ) 


[COMPILE] 


( - ) 


MISCELLANEOUS 


( 


( - ) 


HERE 


( - addr ) 


PAD 


( - addr ) 


>IN 


( - addr ) 


BLK 


( - addr ) 


ABORT 


( - ) 


QUIT 


( - ) 


79-STANDARD 


( - ) 



Compile a number into the dictionary, "comma" 

Add two bytes to the parameter field of the most recently-defined word. 

Print message (terminated by "). If used in definition, print when executed, "dot-quote" 

Mark last-defined word to be executed when encountered in a definition, rather than compiled. 

If compiling, save n in dictionary, to be returned to stack when definition is executed. 

System variable whose value is non-zero when compilation is occurring. 

Stop compiling input text and begin executing, "left-bracket" 

Stop executing input text and begin compiling, "right-bracket" 

Compile the address of the next non-IMMEDIATE word into the dictionary. 

Compile the following word, even if IMMEDIATE "bracket-compile" 



Begin comment, terminated by ) on same line or screen; space after ( . "paren", "close-paren" 

Leave address of next available dictionary location. 

Leave address of a scratch area of at least 64 bytes. 

System variable containing character offset into input buffer; used, e.g., by WORD, "to-in" 

System variable containing block number currently being interpreted, orO if from terminal, "b+k" 

Clear data and return stacks, set execution mode, return control to terminal. 

Like ABORT , except does not clear data stack or print any message. 

Verify that system- conforms to FORTH-79 Standard. 
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